VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BPedido"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Attribute VB_Ext_KEY = "Member0" ,"bCliente"
Attribute VB_Ext_KEY = "Member1" ,"bCliente"
Attribute VB_Ext_KEY = "Member2" ,"bEstado"
Attribute VB_Ext_KEY = "Member3" ,"bUsuario"
Option Explicit
Private mvarnCodigo As Integer 'local copy
Private mvarsDescripcion As String 'local copy
Private mvarlDetalle As Collection 'local copy
Private mvarbCliente As bCliente 'local copy
Private mvarbUsuario As bUsuario 'local copy
Private mvarnTotal As Double 'local copy
Private mvarnDscto As Double 'local copy
Private mvardFecRegistro As Date 'local copy
'local variable(s) to hold property value(s)
Private mvarsDocumento As String 'local copy
Private mvarbEstado As bEstado 'local copy
Friend Property Set bEstado(ByVal vData As bEstado)
'used when assigning an Object to the property, on the left side of a Set statement.
'Syntax: Set x.bEstado = Form1
    Set mvarbEstado = vData
End Property

Friend Property Get bEstado() As bEstado
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.bEstado
    Set bEstado = mvarbEstado
End Property

Friend Property Let sDocumento(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.sDocumento = 5
    mvarsDocumento = vData
End Property


Friend Property Get sDocumento() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.sDocumento
    sDocumento = mvarsDocumento
End Property



Friend Property Let nCodigo(ByVal vData As Integer)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.nCodigo = 5
    mvarnCodigo = vData
End Property


Friend Property Get nCodigo() As Integer
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.nCodigo
    nCodigo = mvarnCodigo
End Property



Friend Property Let dFecRegistro(ByVal vData As Date)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.dFecRegistro = 5
    mvardFecRegistro = vData
End Property


Friend Property Get dFecRegistro() As Date
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.dFecRegistro
    dFecRegistro = mvardFecRegistro
End Property



Friend Property Let nDscto(ByVal vData As Double)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.nDscto = 5
    mvarnDscto = vData
End Property


Friend Property Get nDscto() As Double
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.nDscto
    nDscto = mvarnDscto
End Property



Friend Property Let nTotal(ByVal vData As Double)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.nTotal = 5
    mvarnTotal = vData
End Property


Friend Property Get nTotal() As Double
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.nTotal
    nTotal = mvarnTotal
End Property



Friend Property Set bUsuario(ByVal vData As bUsuario)
'used when assigning an Object to the property, on the left side of a Set statement.
'Syntax: Set x.bUsuario = Form1
    Set mvarbUsuario = vData
End Property


Friend Property Get bUsuario() As bUsuario
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.bUsuario
    Set bUsuario = mvarbUsuario
End Property



Friend Property Set bCliente(ByVal vData As bCliente)
'used when assigning an Object to the property, on the left side of a Set statement.
'Syntax: Set x.bCliente = Form1
    Set mvarbCliente = vData
End Property


Friend Property Get bCliente() As bCliente
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.bCliente
    Set bCliente = mvarbCliente
End Property



Friend Property Set lDetalle(ByVal vData As Collection)
'used when assigning an Object to the property, on the left side of a Set statement.
'Syntax: Set x.lDetalle = Form1
    Set mvarlDetalle = vData
End Property


Friend Property Get lDetalle() As Collection
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.lDetalle
    Set lDetalle = mvarlDetalle
End Property



Friend Property Let sDescripcion(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.sDescripcion = 5
    mvarsDescripcion = vData
End Property


Friend Property Get sDescripcion() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.sDescripcion
    sDescripcion = mvarsDescripcion
End Property



